* Encoding: windows-1252.

title Scales from PAS Composite Personality Inventory
.
compute smis=nmiss(p217 to p338)
freq var=smis p217 to p220
sel if smis le 4
do repeat j=p217 to p338
if missing(j) j=3
end repeat

do repeat j=p217 to p338/k=
 sm1r sm2r sm3r sm4r sm5 sm6 sm7 sm8 sm9r sm10 sm11 sm12r sm13
 sm14r sm15 sm16 sm17r sm18 sm19 sm20r sm21r sm22r sm23r sm24 sm25 loc_i1
 loc_c2 loc_p3 loc_i4 loc_i5 loc_c6 loc_c7 loc_p8 loc_i9 loc_c10 loc_p11
 loc_c12 loc_p13 loc_c14 loc_p15 loc_c16 loc_p17 loc_i18 loc_i19 loc_p20
 loc_i21 loc_p22 loc_i23 loc_c24 bidr01 bidr02r bidr03 bidr04r bidr05 bidr06r
 bidr07 bidr08r bidr09 bidr10r bidr11 bidr12r bidr13 bidr14r bidr15 bidr16r
 bidr17 bidr18r bidr19 bidr20r bidr21r bidr22 bidr23r bidr24 bidr25r bidr26
 bidr27r bidr28 bidr29r bidr30 bidr31r bidr32 bidr33r bidr34 bidr35r bidr36
 bidr37r bidr38 bidr39r bidr40 rse1 rse2 rse3r rse4 rse5r rse6 rse7 rse8r
 rse9r rse10r lot1 prsc1 pusc1 prsc2r lot2r lot3 prsc3 pusc2 prsc4 lot4r
 prsc5r pusc3 lot5r lot6 prsc6 pusc4 prsc7 pusc5 prsc8 pusc6 prsc9 pusc7
 prsc10
compute k=j
end repeat

do repeat k=
 sm1r sm2r sm3r sm4r sm12r
 sm14r sm17r sm20r sm21r sm22r sm23r
 bidr02r bidr04r bidr06r
  bidr08r bidr10r bidr12r bidr14r bidr16r
 bidr18r bidr20r bidr21r bidr23r bidr25r
 bidr27r bidr29r bidr31r bidr33r bidr35r
 bidr37r bidr39r rse3r rse5r rse8r
 rse9r rse10r prsc2r lot2r lot4r
 prsc5r lot5r
compute k=6-k
end repeat
compute self_mon=mean(sm1r to sm25)
compute bidr_sde=mean(bidr01 to bidr20r)
compute bidr_imm=mean(bidr21r to bidr40)
compute rslf_est=mean(rse1 to rse10r)
compute optimism=mean(lot1,lot2r,lot3,lot4r,
  lot5r,lot6)
compute priv_sc=mean(prsc1,prsc2r,prsc3,prsc4,prsc5r,
  prsc6,prsc7,prsc8,prsc9,prsc10)
compute pub_sc=mean(pusc1,pusc2,pusc3,pusc4,pusc5,
  pusc6,pusc7)
compute loc_int=mean(loc_i1,loc_i4,loc_i5,loc_i9,loc_i18,loc_i19,
  loc_i21,loc_i23)
compute loc_cha=mean(loc_c2,loc_c6,loc_c7,loc_c10,loc_c12,loc_c14,
  loc_c16,loc_c24)
compute loc_pow=mean(loc_p3,loc_p8,loc_p11,loc_p13,loc_p15,loc_p17,
  loc_p20,loc_p22)

do repeat j=loc_c2 loc_c6 loc_c7 loc_c10 loc_c12 loc_c14
  loc_c16 loc_c24
 loc_p3 loc_p8 loc_p11 loc_p13 loc_p15 loc_p17
  loc_p20 loc_p22
compute j=6-j
end repeat
compute loc_con=mean(loc_i1,loc_i4,loc_i5,loc_i9,loc_i18,loc_i19
 ,loc_i21,loc_i23,loc_c2,loc_c6,loc_c7,loc_c10,loc_c12,loc_c14
 ,loc_c16,loc_c24
 ,loc_p3,loc_p8,loc_p11,loc_p13,loc_p15,loc_p17
 ,loc_p20,loc_p22)
